** APPENDIX G -- robustness test Curzon line

** OPEN STATA 14 ***

use "POLITICAL EMANCIPATION -- POLAND DATA SET.dta", clear

global covariates "jewishpop"



** CurzonA

* Number Z schools -- All Towns

rdrobust zionschoolsno_any distanceCurzonA if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all


* Z per Capita -- All Towns

rdrobust capzionschoolsno_any distanceCurzonA if type=="ville", kernel(triangular) p(1) bwselect(mserd) all


* No Z Schools -- Census 

rdrobust max_zschools distanceCurzonA if jewishpop>100, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all


* Z Schools per Capita -- Census

rdrobust capmax_zschools_census distanceCurzonA if jewishpop>100, kernel(triangular) p(1) bwselect(mserd) all



* Number of Jewish Schools -- All Towns

rdrobust jewishschoolsno_any distanceCurzonA if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all
 


* Jewish Schools per 1,000 Jews -- All Towns

rdrobust capjewishschoolsno_any distanceCurzonA if type=="ville", kernel(triangular) p(1) bwselect(mserd) all

 

 * Number Schools in Hebrew (all or some)

rdrobust max_somehebrew distanceCurzonA if jewishpop>100, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all



* Per Capita Schools in Hebrew

rdrobust cap_maxsomehebrew distanceCurzonA if jewishpop>100, kernel(triangular) p(1) bwselect(mserd) all




* ** CurzonB


* Number Z schools -- All Towns

rdrobust zionschoolsno_any distanceCurzonB if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all


* Z per Capita -- All Towns

rdrobust capzionschoolsno_any distanceCurzonB if type=="ville", kernel(triangular) p(1) bwselect(mserd) all


* No Z Schools -- Census 

rdrobust max_zschools distanceCurzonB if jewishpop>100, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all


* Z Schools per Capita -- Census

rdrobust capmax_zschools_census distanceCurzonB if jewishpop>100, kernel(triangular) p(1) bwselect(mserd) all


* Number of Jewish Schools -- All Towns

rdrobust jewishschoolsno_any distanceCurzonB if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all
 

* Jewish Schools per 1,000 Jews -- All Towns

rdrobust capjewishschoolsno_any distanceCurzonB if type=="ville", kernel(triangular) p(1) bwselect(mserd) all

 

 * Number Schools in Hebrew (all or some)

rdrobust max_somehebrew distanceCurzonB if jewishpop>100, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all



* Per Capita Schools in Hebrew

rdrobust cap_maxsomehebrew distanceCurzonB if jewishpop>100, kernel(triangular) p(1) bwselect(mserd) all
